home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 178
/
178.d81
/
b.toon 178
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
143 lines
10 poke56,56:poke55,0:clr:poke53371,0
12 t=178:t2=1:t$(0)=str$(t-3):t$(1)=str$(t):l(0)=128:l(1)=64
14 nm$="[197]lmer and [202]ean [210]icha
16 ad$[178]"(NULL)ake left$avasu lenity atn(NULL)
20 dv=peek(186):ifdv<8thendv=8
22 hz$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
24 sp$=" "
26 eb$(0)=" @ @ "
27 eb$(1)=" @ @ "
28 eb$(2)=" @ @ "
30 poke53281,0:poke53280,0:print"[147]"
32 x=1:y=0:xx=36:yy=22:gosub100
34 printtab(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174] [176]
35 [153][163]4)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
36 printtab(4)" [177] [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189] [173][192][192][189]
38 [153]"print# (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
40 [153]" (NULL)(NULL)(NULL)(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)val(NULL)(NULL)
50 ifgthen120
60 g=1
70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
72 poke53272,31
80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
88 sys57812"toon"+t$(0)+".shp",dv,0:poke780,0:poke781,0:poke782,128:sys65493
90 sys57812"toon"+t$(1)+".shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
92 sc=204*256:syssc,96,92,56
96 goto120
100 poke214,y:print
102 printtab(x)"[176]"left$(hz$,xx)"[174]"
104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
106 printtab(x)"[173]"left$(hz$,xx)"[189]"
108 return
120 gosub680:poke214,9:print:print" 1[154] [202]ust show [155][212]oon"t$(t2)"[154]."
130 print" 2[154] [211]how [155][212]oon"t$(t2)"[154] and print it on a
140 [153]" 7-pin (1525-emulating) printer.
150 print" 3[154] [211]how [155][212]oon"t$(t2)"[154] and print it on an
160 [153]" 8-pin (valpson-emulating) printer.
170 ift2=0thenprint" [151]4 [197]nter a caption for [212]oon"t$(1)".":goto180
172 print" 4[154] [197]nter a caption for [155][212]oon"t$(1)"[154]."
180 print" 5[154] [212]oggle between [155][212]oon"t$(0)"[154] and[155]"t$(1)"[154]."
190 print" 6[159] [210]eturn to [204][207][193][196][211][212][193][210].
200 [151]198,0
206 [139][187](1)[177].98[167][151]214,3:[153]:[153][163]13)eb$([187](1)[172]3)
210 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]206
220 a1[178][197](a$):[139]a1[178]6[167]40000
222 [139]a1[178]5[167]t2[178]1[171]t2:g[178]1:[137]120
230 [139]a1[178]4[167][139]t2[178]1[167]690
240 [139]a1[178]1[167]600
250 [139]a1[178]2[167]tb[178]80:[137]430
252 [139]a1[179][177]3[167]200
260 [141]680
270 [151]214,11:[153]
280 [153][163]7)" str$val(NULL)(NULL)right$(NULL)(NULL) (NULL)right$str$(NULL)left$
290 printtab(7)" 1[154] [211]ingle wide
300 [153][163]7)" 2cont lenrt normal
310 printtab(7)" 3[154] [196]ouble narrow
320 [153][163]7)" 4cont str$ouble wide
330 printtab(7)" 5[154] [209]uad narrow
340 [153][163]7)" 6cont (NULL)uad normal
342 printtab(7)" 7[159] [194]ack to the [205]ain [205]enu
350 [151]198,0
360 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]360
370 a2[178][197](a$):[139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
380 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
390 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
400 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
410 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
420 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
422 [139]a2[178]7[167]30
430 [141]680
440 [151]214,11:[153]
450 [153][163]9)" (NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
460 printtab(9)" 1[154] [204]eft
470 [153][163]9)" 2cont lenenter
480 printtab(9)" 3[154] [210]ight
490 [139]a2[179][177]3[175]a2[179][177]5[167]520
500 [153][163]9)" 4cont lenenter-left
510 printtab(9)" 5[154] [195]enter-right
512 [153][163]9)" 6open peekack to (NULL)ain (NULL)enu
520 poke198,0
530 geta$:ifa$<"1"ora$>"6"then530
532 ifa$="6"then30
540 ifa$="1"thentb=0:goto600
550 ifa$="2"then600
560 ifa$="3"thentb=tb*2:goto600
570 ifa2<>3anda2<>5then520
580 ifa$="4"thentb=53:goto600
590 tb=266
600 ift2=0thengosub930
608 poke251,l(t2):poke252,96:poke253,92:ifg=1thensys51456
610 sys51459
620 ifa1=2thensys49152,tb,128:goto660
630 ifa1=3thensys49155,tb,ds,bt,bt*320,128:goto660
640 poke198,0
650 geta$:ifa$=""then650
660 poke186,dv:sys51459
670 goto30
680 poke214,8:print:fori=1to14:printtab(2)left$(sp$,35):next:return
690 poke251,64:poke252,96:poke253,92:sys51456
700 poke214,17:print
710 sys51459
720 syssc+6,1,23,"[152][197]nter your caption here. [215]hen done,
730 [158]sc[170]6,1,24,"press asc1. (NULL)ress (NULL)(NULL)atnlenval to begin.
740 poke198,0
750 geta$:ifa$<>" "then750
760 syssc+6,0,23," "
770 syssc+6,0,24," [144]"
780 syssc+6,1,23," [146][157]"
790 poke198,0:syssc+3," [146][157]"
800 geta$:ifa$=""then800
810 ifa$=chr$(133)thensyssc+3," ":sys51459:g=2:goto200
820 ifa$=chr$(20)thensyssc+3," [157][157]":goto790
830 ifa$="[157]"thensyssc+3," [157][157] [146][157]":goto790
840 ifa$=""thensyssc+3," [146][157]":goto790
850 ifa$=""thensyssc+3," [157] [146][157]":goto790
860 ifa$="[145]"thensyssc+3," [145][157] [146][157]":goto790
870 ifa$=chr$(34)then790
880 ifa$=chr$(13)thensyssc+3," "
890 ifa$>"[218]"then790
900 ifa$>"_"anda$<"[193]"then790
910 syssc+3,a$
920 goto790
930 gosub680
940 x=3:y=10:xx=32:yy=8:gosub100
950 poke214,12:print
952 printtab(7)"[155][212]he winner of [212][207][207][206]"t$(0)" is[154]"
954 printtab(20-len(nm$)/2)nm$
956 printtab(20-len(ad$)/2)ad$
960 printtab(6)"[155][208]ress a key to see [212]oon"t$(0)"."
970 poke198,0
980 geta$:ifa$=""then980
990 return
10000 d=peek(186):n$="0:b.toon 178":open15,d,15,"s"+n$:close15:saven$,d:end
40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
40030 forj=8to29:i=peek(820+j):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:return
40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end